home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Graphics / ProRen / Install_english < prev    next >
Encoding:
Text File  |  1997-07-12  |  4.0 KB  |  183 lines
  1. ; $VER: ProRen V2.0 Installer
  2. ; Script to install Release 2.0 of ProRen
  3.  
  4. ; If you translate this script, replace all ### with the language, well I'll test
  5. ; this anyway and correct it, so the most important is that you translate the strings
  6.  
  7. (complete 0)
  8.  
  9. ;*** set strings ***
  10. (set #askdir-main-text
  11. (cat "Where shall ProRen 2.0 be installed ?\n"
  12.      "(A directory called ProRen will be created.)"
  13. ))
  14.  
  15. (set #askbool-docs-text
  16. (cat "Shall the documentation (HTML) be installed to ProRen/docs ?"
  17. ))
  18.  
  19. (set #askdir-docs-text
  20. (cat "Where shall the documentation be installed to ?"
  21. ))
  22.  
  23. (set #askbool-rexx-text
  24. (cat "Shall the arexxscripts be installed to ProRen/rexx ?"
  25. ))
  26.  
  27. (set #askdir-rexx-text
  28. (cat "Where shall the arexxscripts be installed to ?"
  29. ))
  30.  
  31. (set #askbool-ctlg-text
  32. (cat "Shall the ### catalog be installed to LOCALE:catalogs/### ?"
  33. ))
  34.  
  35. (set #askdir-ctlg-text
  36. (cat "Where shall the ### catalog be installed to?"
  37. ))
  38.  
  39. (set #Registration
  40. (cat "ProRen is shareware!\nIf you aren't registered, some features "
  41.      "are not available. Ask the docs how to register!"
  42. ))
  43.  
  44. (welcome "\nWelcome to the installation of "@app-name"")
  45.  
  46. ;*** ask destination for mainfiles ***
  47. (set #maindir
  48.   (askdir
  49.     (prompt #main-query-text)
  50.     (default @default-dest)
  51.     (help @askdir-help)
  52.   )
  53. )
  54. (complete 5)
  55.  
  56. ; *** if #prdir exists it's an update
  57. (set #prdir (tackon #maindir "ProRen"))
  58. (if
  59.   (= 0
  60.     (exists #prdir (noreq))
  61.   )( ;then install
  62.     (copyfiles (source "/ProRen.info") (dest #maindir))
  63.     (set #icon (tackon #maindir "ProRen"))
  64.     (makedir #prdir)
  65.     (set #update 0)
  66.   )( ;else update
  67.     (set #update 1)
  68.     ; nothing to do yet
  69.   )
  70. )
  71. (complete 10)
  72.  
  73. (set #gfxdir (tackon #prdir "gfx"))
  74. (makedir #gfxdir)
  75.  
  76. ; *** ask for docs
  77. (if
  78.   (= 1
  79.     (askbool (prompt #askbool-docs-text) (help @askbool-help))
  80.   )(  ; then
  81.     (set #docsdir (tackon #prdir "docs"))
  82.     (makedir #docsdir)
  83.     (copyfiles (source "docs.info") (dest #prdir))
  84.   )(  ; else
  85.     (if (= 0 @user-level)
  86.       ( ;then
  87.         (set #docsdir (tackon #prdir "docs"))
  88.         (makedir #docsdir)
  89.         (copyfiles (source "docs.info") (dest #prdir))
  90.       )( else
  91.         (set #docsdir
  92.           (askdir
  93.             (prompt #docs-query-text)
  94.             (default #prdir)
  95.             (help @askdir-help)
  96.           )
  97.         )
  98.       )
  99.     )
  100.   )
  101. )
  102. (complete 15)
  103.  
  104. ; *** ask for rexx
  105. (if
  106.   (= 1
  107.     (askbool (prompt #askbool-rexx-text) (help @askbool-help))
  108.   )(  ; then
  109.     (set #rexxdir (tackon #prdir "rexx"))
  110.     (makedir #rexxdir)
  111.   )(  ; else
  112.     (if (= 0 @user-level)
  113.       ( ;then
  114.         (set #rexxdir (tackon #prdir "rexx"))
  115.         (makedir #rexxdir)
  116.       )( else
  117.         (set #rexxdir
  118.           (askdir
  119.             (prompt #rexx-query-text)
  120.             (default #prdir)
  121.             (help @askdir-help)
  122.           )
  123.         )
  124.       )
  125.     )
  126.   )
  127. )
  128. (complete 20)
  129.  
  130. ; *** ask for catalogs
  131. ; not necessary for english version so I remarked;
  132. ;(if
  133. ;  (= 1
  134. ;    (askbool (prompt #askbool-ctlg-text) (help @askbool-help))
  135. ;  )(  ; then
  136. ;    (set #ctlgdir "LOCALE:catalogs/###")
  137. ;    (makedir #ctlgdir)
  138. ;  )(  ; else
  139. ;    (if (= 0 @user-level)
  140. ;      ( ;then
  141. ;        (set #ctlgdir "LOCALE:catalogs/###")
  142. ;        (makedir #ctlgdir)
  143. ;      )( else
  144. ;        (set #ctlgdir
  145. ;          (askdir
  146. ;            (prompt #ctlg-query-text)
  147. ;            (default #prdir)
  148. ;            (help @askdir-help)
  149. ;          )
  150. ;        )
  151. ;      )
  152. ;    )
  153. ;  )
  154. ;)
  155. (complete 25)
  156.  
  157. ;*** copy the files ***
  158. (copyfiles (source "ProRen") (dest #prdir) (infos) (noposition))
  159. (complete 30)
  160. (copyfiles (source "Register") (dest #prdir) (infos) (noposition))
  161. (complete 35)
  162. (copyfiles (source "gfx") (dest #gfxdir) (all))
  163. (complete 40)
  164. (if (= #update 0)
  165.   (
  166.     (copyfiles (source ".arexx") (dest #prdir))
  167.     (complete 45)
  168.   )
  169. )
  170. (copyfiles (source "docs/english") (dest #docsdir) (all) (infos) (noposition))
  171. (complete 85)
  172. (copyfiles (source "rexx") (dest #rexxdir) (all))
  173. (complete 95)
  174. ; no catalog for english people :-(
  175. ;(copyfiles (source "catalogs/###/proren.catalog") (dest #ctlgdir))
  176.  
  177. ;*** Done ***
  178. (complete 100)
  179. (message #Registration (all))
  180.  
  181. (set @default-dest #prdir)
  182.  
  183.